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I. INTRODUCTION 

There have been various studies contrasting Navy officer 
graduate degrees and subsequent assignments. In order to 
determine the cost effectiveness of providing Naval officers 
with advanced degrees, there is a need to provide a tool for 
tracking their career paths after graduation from government 
sponsored graduate education (or Naval Postgraduate School). 
This menu-driven prototype application was developed to 
fulfill that requirement. By providing a data base that is 
easily maintainable and readily accessible for updating billet 
information, trends in the utilization of officers having 
government sponsored graduate degrees can be easily viewed 


through the reporting feature. 


A. REVIEW OF CURRENT PROCESS 

In the face of downsizing U.S. military forces, the 
importance of personnel utilization becomes more critical. 
The current method for reassignment is determined mainly 
between the detailer and the officer. Moreover, the Navy 
officer is in a unique position in that the officer generally 
is required to follow shore duty (Naval Postgraduate School) 
with sea duty. The officer is interested in checking off the 
requirements that the promotion board will be reviewing and 


not concerned with fulfilling a payback tour or pay back 


billet. The detailer has limited payback billets opened 
concurrently with the rotation cycle of the NPS graduates and 
is concerned with filling positions rather then payback 
requirements. There are specific guidelines for filling 
degree-related billets but no current method for applying 
these guidelines. Moreover, the activity for educating Navy 
officers and the activity for assigning them are two distinct 
commands. At best, a system for tracking NPS Navy officer 
graduates will provide the necessary data to analyze current 


billet assignments. 


B. PURPOSE 

Initially, three questions were to be addressed in this 
study: 

1. What cost effectiveness can be realized by the Navy in 
providing advanced degrees to their Navy officers? 

2. What measures are currently employed in placing graduate 
Navy officers in applicable billets? 

3. What career trends are reflective of the Navy officer 
following graduation at NPS? 

There have been several papers written regarding cost 
effectiveness of advanced degrees for Navy officers which tend 
to indicate the subjectivity required to make such an 
assessment. For further review, see references 2 and 3. As 
Stated previously, there is no unified process for placing 


graduate students. Basically what is available and what is 


optimal in terms of career advancement are the two influencing 
factors. This would require a process change which is not 
within the scope of this paper (instead of shore to sea; 
institute NPS (shore) to payback (shore) to sea). Thus, this 
paper focused on the tracking of NPS Navy officers. This 
prototype addresses the third question: where do the 
graduates go? By looking at past trends and developing a 
system to track current NPS graduates, future assignments may 


be more efficiently managed. 


II. PROJECT REVIEW 

There is no formal system analysis and design methodology 
when developing a system using a fourth generation language 
(FOCUS). FOCUS is basically a data base maintenance tool and 
report generator. Three phases are required to develop a 
prototype. They consist of (1) the requirements review, (2) 
data base design, and(3) identifying report requirements. 
Through an iterative process, the system is developed, 
analyzed and modified until requirements have been satisfied 
(the requirements may be modified as the process continues and 


actual application is realized). 


A. REQUIREMENTS REVIEW 

The hardware and software selection was based on the size 
of the data and availability to end-users. The NPS mainframe 
computer (AMDAHL 6225) was selected and CMS accounts set up to 
utilize existing FOCUS software. The initial data file of 
Navy records and data elements requires approximately 40 
cylinders of storage. Therefore, a subset of the Officer Navy 
Master File was used. Only current NPS Navy students were 
selected for this prototype and may be expanded to include all 
Navy officers as well as other services as the need requires 


and space allows. 


The Officer Master File (OMF) maintained by the Defense 
Manpower Data Center (DMDC) was identified as the initial data 
SOUrce. These files provided service member data, billet 
data, and educational data. However, the billet sequence code 
required to identify payback billets was not available. 
Further investigation led to a request by the Dean of 
Instruction to Bureau of Personnel (PERS 5G) to change the 
Department of Defense Instruction (DODI) to include this 
service specific data to the DMDC OMF. This information was 
not received in adequate time to develope this prototype. 
Alternatively, menu screens were provided to input a sample of 
officer billet data into the base OMF extract. Ten officers 
having graduated the last two quarters across the 12 
curriculums were requested for entry into the database. 

A UIC file from DMDC was identified and initially 
requested. However, the idea of grouping UICs (like grouping 
zip codes) to identify "where are the graduates going" was 
determined to be too broad to be useful in this analysis. 

The billet information was determined to be classified by 
Bureau of Personnel (BUPERS) and therefore not included in 
this thesis. A billet matrix, used for assigning personnel, 
was provided for informational purposes only and not within 
the scope of developing the personnel data base. 

Ability to develop user reports through a user friendly 
application was requested. A simple menu driven application 


is provided by FOCUS called TABLETALK. This application was 


provided as an option from the main menu. A listing of the 
individual records in the data base and a summary report were 


provided as options. 


B. DATA BASE DESIGN 

As stated previously, the OMF prototype was developed for 
the personnel data base (OMFX). Index keys were included for 
later linking to the UIC file and the Billet file. These 
three structures and their elements are summarized in Appendix 


A. 


Figure 1 Data Base Relationship 


1. Personnel Data Base 

The Personnel Data Base referred to as the Officer 
Master file extract (OMFX) consists of four major components: 
(1) the service segment; (2) the individual member segment; 
(3) the billet information segment; and (4) the educational 
segment. The service component identifies the individual 
service or organization: NV - Navy, AR - Army, AF - Air 
Force, CG - Coast Guard, MR - Marines, CIV - Civilian. The 
Navy is the main focus for this study. The next segment, 
member information, contains the individual’s social security 
number, abbreviated name, and name as indexes, as well as 
additional personnel data identified in the master file 
description. The billet segment indexes the current unit 
identification code (UIC), the billet sequence code (BSC), and 
the next tour of duty UIC and BSC. This segment provides data 
information for the next two tours of duty since there is a 
requirement to complete a pay back tour within this time 
period. The educational segment contains the officer’s last 
two college degree programs and their respective information. 
This was restricted by the initial data uploaded from the OMF 
file. In order to accommodate multiple instances of 
educational data, a unique identifier would need to be 
determined. In reviewing the actual data, a unique identifier 
could not be determined. Officers may attend the same college 
and graduate in two separate majors as well as graduate the 


same time from two different schools. Although this is the 


exception and not the rule, there would be lost data or 
incomplete data on these students if the index were school or 
date of completion. 
2. Unit Identification Code (UIC) File 
The UIC file would be used to store data from the UIC 
file from DMDC providing address information only. This would 
be helpful if grouping them by geographical area was 
determined to be useful for tacking NPS Navy students. 
3. Billet Sequence Code File 
The BSC would identify specific billet codes 
associated with a UIC. The file would provide subspecialty 
codes associated with each unique UIC/BSC in order to identify 


and link potential billets by subspecialties granted at NPS. 


III. PROJECT DESIGN AND IMPLEMENTATION 


A. OFFICER MASTER FILE EXTRACT (OMFX) MODEL 

The OMFX model was designed as a tool to provide on-line 
access for end-user reporting. This information was 
normalized into three separate relational data bases. The 
personnel data base was designed to expand its usage to 
include all Navy Officers and all services. An account was 
developed to provide simultaneous access, updating and 
reporting, referred to as a SINK machine (synchronized usage). 
Multi-usage was implemented for entering test billet data from 
each of the NPS curriculum offices. It appears feasible to 
implement the total Navy force on a single CMS account SINK 
machine. The Navy OMF fixed file required 40 cylinders of 
storage. A program account of approximately 50 cylinders and 
a users account of 4 cylinders for each end user would be 
required. The model currently consists of 10 cylinders of 
data and programs and one 4 cylinder user account on the Naval 


Postgraduate School (NPS) mainframe computer. 


B. PROGRAM DEVELOPMENT 

Programs developed in FOCUS consists of a main menu for 
uploading data, maintaining the data base, and reporting. 
Since this was a prototype, backup procedures and backup 


programs were not included. However, security passwords were 


implemented due to the sensitivity of the data. To view the 
system, refer to the Users Guide at Appendix C. The accounts 


currently set up for this model are temporary accounts. 
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IV. CONCLUSIONS 

The initial requirements of providing a tool to track NPS 
Navy students was realized in the OMFX model. The adding of 
billet information on students graduating from NPS provides 
the information required for tracking but raises the issues of 
entering and maintaining the data as well as keeping duplicate 
information at their respective command levels. At best, 
trends can be reviewed from data gathered at DMDC providing 
that the billet sequence codes can be included in their OMF. 
The timeliness of the data represents a signficiant problem 
worthy of further study. The OMF is a fiscal year file. 
Requirements to have the data quarterly (to include BSC 
information) impact the submitting agency and the supporting 
agency. 

When it is determined how the BSC data is to be included 
(provided through the OMF file or through inputing by 
department curricular offices) and how the data is to be 
maintained current, the basic concept presented to track these 
personnel is feasible. The OMFX model represents a successful 


implementation of a data base with multi-user access. 


Led 


APPENDIX A: DATA DICTIONARY 


A. TABLE 1: DATA FILES 


FILE NAME/TYPE DESCRIPTION 

OMF DATA Transaction input personnel attributes. 
OMFX FOCUS On-Line personnel data base. 

OMFUIC FOCUS Proposed on-line UIC data base. 

OMFBSC FOCUS Proposed on-line BSC data base. 
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B. TABLE 2: 
FIELD NAME 
RECNO 


PR_GRADE 
PROMO STAT 


YEAR_GRP 


YG MYSTERY 
foarst 
DESIG 


UNKNOWN 
SEL FY 

SEL _INCR 
SEL PGM 

SEL CURR 
SEL STAT 
GROUP 
PRESELECT 
U_GRAD VALID 
FY SELECTED 
INCR_ SELECT 
PGM SELECT 
CURRIC_SEL 
SELECT STAT 
J _YR_SEL 

J STATUS 
J_COLLEG 

J FYELIG 

S YR SEL 

S STATUS 
S_COLLEG 

S FYELIG 
PRI DUTY 
BSC 


GRE YEAR 
COLLEGE1 
DURATIN1 
YRCOMP1 
SPONSR1 
LEVEL1 
MAJOR1 
SPEC1 


OMF DATA FILE DEFINITIONS 


FORMAT 


I5 


Al 
A4 


A2 


Al 


44 


DESCRIPTION 
Record number extracted from 
master. 


Permanent Grade 

Officer’s selection/nonselection 
to next higher grade. 

Year of precedence for officer 
promotion. 

Year-group of precedence 
increment; 2 = second) 
Code to categorize officers for 
accounting and statistical 
purposes. 
Filler 

Program Status 
Program Status 
Program Status Program 
Program Status Curriculum 
Program Status Selectee 
Education History Group Code 
Preselect Indicator 
Undergraduate Valid 

Fiscal Year Selected 

FY Increment Selected 
Program Selected 

Curriculum Selected 
Selection Status 

Junior Year Selected 

Junior Year Status 

Junior Service College 
Junior FY Eligible 

Senior Year Selected 

Senior Status 

Senior Service College 
Senior FY Eligible 

Primary Duty (Billet Title) 
Billet Sequence Code 
Provided) 

Graduate Record Exam Year 
Current College (Monterey) 
Duration 

Year Completed 

Sponsor Code 

Level 

Major 

Specialty 


(l= 


Fiscal Year 
FY Increment 


(Not 


3 


COLLEGE2 
DURATIN2 
YRCOMP2 
SPONSR2 
LEVEL2 
MAJOR2 
SPEC2 
SUBSPEC1 
SUBSPEC2 
SUBSPEC3 
SSUHIST 
NOB CODE1 
NOB STA COD1 
NOB CLASS1 
NOB _KEY1 
NOB CODE2 


NOBC_STA_COD2 
NOB CLASS2 
NOB _KEY2 
NOB_CODE3 
NOB_STA_COD3 
NOB_CLASS3 
NOB_KEY3 
NOB_CODE4 
NOB_STA_COD4 
NOB_CLASS4 
NOB_KEY4 

NOB_ CODES 
NOB_STA_COD5 
NOB_CLASSS5 
NOB KEY5 
NOB_CODE6 
NOB_STA_COD6 
NOB_CLASS6 
NOB_KEY6 

APC 

DOD LOSS COD 
SEX 
NOBC_COUNTER 
PGU_UTIL 
ACTUAL_UIC 


PARENT UIC 
UIC XFERD TO 
AQD COUNTER 
Designator 
AQDDATE]1 
AQD1 
AQDDATE2 


Previous College 

Duration 

Year Completed 

Sponsor Code 

Level 

Major 

Specialty 

First Subspecialty 

Second Subspecialty 

Third Subspecialty 

Subspecialty Utilization History 
Navy Office Billet Code (NOBC) 
NOBC Station Code 

NOBC Class (MOS) 

NOBC Key 

(Group 2 thru 6 same as NOBC group 
1) 


Not Used 

DOD LossCode 

Gender (1 - Male;2 - Female) 
NOBC Counter 

Pay Grade Utilization Code 
Actual Unit Identification Code 
(UIC) 

Parent UIC 

UIC Transfered To 

Additional Qualification 
(AQD) Counter 

AQD Year 

AQD Code 

(Group 2 thru 12 same as AQD group 
1) 
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AQD2 A3 


AQDDATE3 A2 

AQD3 A3 

AQDDATE4 A2 

AQD4 A3 

AQDDATES5 A2 

AQD5 A3 

AQDDATE6 A2 

AQD6 A3 

AQDDATE7 A2 

AQD7 A3 

AQDDATE8 A2 

AQD8 A3 

AQDDATE9 A2 

AQD9 A3 

AQDDATE10 A2 

AQD10 A3 

AQDDATE11 A2 

AQD11 A3 

AQDDATE12 A2 

AQD12 A3 

SSN A9 Social Security Number 
NAME A27 Last First Middle 
YOS Al Years of Service 
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C. TABLE 3: OMF MASTER FILE 


FILE=OMF , SUFFIX=FIX 


FIELD=RECNO ; ,15,$ 
FIELD=PR GRADE , ALIAS=PG wal. S 
FIELD=PROMO STAT , ,A4,$ 
FIELD=YEAR GRP , ALIAS=YG Ne IS 
FIELD=YG MYSTERY , ,Al,$ 
FIELD=DESIG ; /A4,$ 
FIELD=UNKNOWN ; lias 
FIELD=SEL FY ; A? 3S 
FIELD=SEL INCR ; PA leas 
FIELD=SEL PGM ; ,Al,$ 
FIELD=SEL CURR : FING eS 
FIELD=SEL STAT ; Ls 
FIELD=GROUP ; PAS 
FIELD=PRESELECT , PAs 
FIELD=U GRAD VALID, Alas 
FIELD=FY SELECTED, A205 S 
FIELD=INCR_SELECT, Pes 
FIELD=PGM SELECT , ,Al,$ 
FIELD=CURRIC SEL , ,A3,$ 
FIELD=SELECT STAT, BLAS 
FIELD=J YR SEL , pS 
FIELD=J STATUS : ,Al,$ 
FIELD=J COLLEG ; m:n 
FIELD=J FYELIG ; ADS 
FIELD=S YR SEL_ , ;RlS 
FIELD=S STATUS ; oA 1s 
FIELD=S_ COLLEG ; TA2)S 
FIELD=S FYELIG , ,A2,$ 
FIELD=PRI DUTY ; ,Al4,$ 
FIELD=BSC | : ,A5,$ 
FIELD=GRE YEAR ; ,Al1,S$S 
FIELD=COLLEGE1 , _Al10,$ 
FIELD=DURATINI , ,A2,$ 
FIELD=YRCOMP1 ; yAD AS 
FIELD=SPONSRI1 , Ailess 
FIELD=LEVEL1 ; ,Al,S$ 
FIELD=MAJORI1 ; ,A2,$ 
FIELD=SPEC1 ; A2<S 
FIELD=COLLEGE2 ; ,Al0,$ 
FIELD=DURATIN2 ; PhDs 
FIELD=YRCOMP2 ; cA2-S 
FIELD=SPONSR2 ; nals 
FIELD=LEVEL2 : Ales 
FIELD=MAJOR2 : ,A2,$ 
FIELD=SPEC2 ; 2s 
FIELD=SUBSPEC1 ,ALIAS=SSC1_ ,A5S,$ 


FIELD=SUBSPEC2 »ALIAS=SSC2_  ,A5,$ 
FIELD=SUBSPEC3 »ALIAS=SSC3_ ,A5,$ 
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FIELD=SSUHIST ; 
FIELD=NOB CODE1 


, 


FIELD=NOB STA COD1, 


FIELD=NOB CLASS1 , 
FIELD=NOB KEY1 
FIELD=NOB CODE2 , 
FIELD=NOB STA COD2, 
FIELD=NOB CLASS2 , 
FIELD=NOB_ KEY2 
FIELD=NOB CODE3 , 


FIELD=NOB STA COD3, 


FIELD=NOB CLASS3 , 
FIELD=NOB KEY3_ , 
FIELD=NOB CODE4 , 
FIELD=NOB_ STA_COD4, 
FIELD=NOB CLASS4 , 
FIELD=NOB KEY4_, 
FIELD=NOB CODES , 


FIELD=NOB STA CODS, 


FIELD=NOB CLASSS , 
FIELD=NOB KEYS , 
FIELD=NOB CODE6 , 


FIELD=NOB STA COD6, 


FIELD=NOB CLASS6 , 
FIELD=NOB_KEY6 ; 
FIELD=APC _ 

FIELD=DOD LOSS CoD, 
FIELD=SEX _ 

F IELD=NOBC COUNTER, 
FIELD=PGU UTIL 


FIELD=ACTUAL UIC ,ALIAS=AUIC 
FIELD=PARENT UIC ,ALIAS=PUIC 


FIELD=UIC XFERD TO, ALIAS=XUIC 


FIELD=AQD COUNTER, 
FIELD=AQDDATE1 
FIELD=AQD1 
FIELD=AQDDATE2 
FIELD=AQD2 
FIELD=AQDDATE3 
FIELD=AQD3 
FIELD=AQDDATE4 
FIELD=AQD4 
FIELD=AQDDATES5 
FIELD=AQD5 
FIELD=AQDDATE6 
FIELD=AQD6 
F IELD=AQDDATE7 
FIELD=AQD7 
FIELD=AQDDATE8 
FIELD=AQD8 
FIELD=AQDDATE9 


™ = = = = ™= ~~ ™ = = = = ™= = = = = 


shy 


FIELD=AQD9 
FIELD=AQDDATE10 
FIELD=AQD10 
FIELD=AQDDATE11 
FIELD=AQD11 
FIELD=AQDDATE12 
FIELD=AQD12 
FIELD=SSN 
FIELD=NAME 
FIELD=YOS 

END 


= ™= ™* ™~ ~= = ~ ~= = = 
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D. 


TABLE 4: 


OMF'X 


MASTER FILE 


FILE=OMFX, SUFFIX=FOC,$ 


SEGNAME=SERVICE, SEGTYPE=S1 


SEGNAME=MEMBER, SEGTYPE=S1, 


SEGNAME=BILLET, SEGTYPE=S1, 
FIELD=UIC ACTUAL ,ALIAS=AUIC, FORMAT=A5 


, FORMAT=A3 


, FIELDTYPE=I, 


DESCRIPTION= ‘Individual service or organization’ 


FIELD=SVC 
TITLE=’SVC’, 
ACCEPT=’NV 


’ OR 


‘AR 


c 


OR ‘AF ’ OR ‘CG ’ 


HELP= ’*** Service must be NV, AR, AF, 
FIELD=ALUM_FLG ; 
DESCRIPTION='NPS Alumni’ 
TITLE=’Alumni’ 
FIELD=ALUM DATE , 
DESCRIPTION=’Year Month Graduated from NPS’, 
TITLE=’Alumni,Grad Date’ 


FIELD=SSN 


FIELD=NAME SHORT |, ALIAS= NM S_ ,FORMAT=A8 


,FORMAT=Al1 , 


On MC ~ OR “Gly” 
CG, MC, OR CIV ***’ 


, FORMAT=I4YM, 


PARENT=SERVICE 
, FORMAT=A9 


, FIELDTYPE=1I 
, FIELDTYPE=I, 


DESCRIPTION=' First 8 eceers of name field ’ 


FIELD=NAME 


, ALIAS=NM 


, FORMAT=A27 


DESCRIPTION=' Last First Middle’, 


TITLE=’ Name 
FIELD=FILE DATE 


, ALIAS=FY 


, FORMAT=14YY 


,FIELDTYPE=I, 


e 


DESCRIPTION=’Year of Officer Master File Extracted From’ 


FIELD=GENDER 
DESCRIPTION= 


, ALIAS=SEX 
‘F — Female, M ~ Male’, 


TITLE='Gender’ 
FIELD=DOD_LOSS_COD,ALIAS=ETS ,FORMAT=A3 


FIELD=YOS — 


FIELD=PR_ GRADE 


FIELD=PROMO STAT , 


FIELD=YEAR_GRP 
FIELD=DESIG 
FIELD=SEL FY 


FIELD=SEL PGM 


FIELD=SEL CURR 


FIELD=SEL INCR ' 


FIELD=SEL_ STAT 


FIELD=BSC 


, ALIAS=PG 


,ALIAS=YG 


,FORMAT=Al1, 


, FORMAT=Al 
, FORMAT=Al1 
, FORMAT=A4 
, FORMAT=A2 
, FORMAT=A4 
, FORMAT=A2 
, FORMAT=A1 
, FORMAT=A1 
, FORMAT=A3 
, FORMAT=A1 


PARENT=MEMBER 


, FORMAT=A5 


FIELD=UIC_ PARENT | ALIAS= PUIC, FORMAT=A5 


FIELD=UIC1 
FIELD=BSC1 


FIELD=PAY1 BACK , 


DESCRIPTION= 


PETLE=’FIRST, TOUR’, 


ACCEPT= 


HELP= ‘*** 


0 TO 4, 


_X_TO,ALIAS=XUIC1, FORMAT=A5 
X”TO, ALIAS=XBSC1 , FORMAT=A5 


,FORMAT=Al1, 


‘PAY BACK TOUR OR BILLET’, 


PAY BACK MUST BE 1, 2, 3, OR 


FIELD=SPONS1_NM_ , 
FIELD=SPONS1 ADDR1, 
FIELD=SPONS1 ADDR2, 
FIELD=SPONS1_ ADDR3, 
FIELD=SPONS1 CITY, 
FIELD=SPONS1 STATE, 
FIELD=SPONS1 ZIP, 
FIELD=RPT1_DATE, 
FIELD=UIC2_X_TO,ALIAS=XUIC2,FORMAT=A5 
FIELD=BSC2_X_TO,ALIAS=XBSC2 , FORMAT=A5 


, FORMAT=A27 
, FORMAT=A20 
, FORMAT=A20 
, FORMAT=A20 
, FORMAT=A2 0 
, FORMAT=A2 

, FORMAT=A10 
, FORMAT=1I4YM 
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, FIELDTYPE=I 
, FIELDTYPE=I 


, FIELDTYPE=I 
, PF LELDTYPE=I 


4 kk 


, FIELDTYPE=I 
, FIELDTYPE=I 


c 


MONNNNNUNNNNNN 


™= = ~= ~~ ~™ = = = = = = 7~ ™~ ~~» = ™~ = 
AMNMN 


NONNMNNNUNNNNN 


FIELD=PAY2 BACK , ,FORMAT=Al1, 
DESCRIPTION=’PAY BACK TOUR OR BILLET’, 
TITLE=’ SECOND, TOUR’, 
ACCEPT= 0 TO 4, 
HELP=.'*** PAY BACK MUST BE 13927) 3, Chua. *>" 


FIELD=SPONS2_ NM , , FORMAT=A27 
FIELD=SPONS2_ ADDR1, , FORMAT=A20 

FIELD=SPONS2 ADDR2, , FORMAT=A20 
FIELD=SPONS2_ ADDR3, , FORMAT=A20 

FIELD=SPONS2 CITY, , FORMAT=A20 
FIELD=SPONS2_ STATE, , FORMAT=A2 

FIELD=SPONS2 ZIP, , FORMAT=A10 

FIELD=RPT2_ DATE, , FORMAT=14YM 
FIELD=SUBSPEC1 ,ALIAS=SSC1,FORMAT=A5- ,FIELDTYPE=I 
F IELD=SUBSPEC2 , ALIAS=SSC2,FORMAT=A5- ,FIELDTYPE=I 
FIELD=SUBSPEC3 ,ALIAS=SSC3,FORMAT=A5 ,FIELDTYPE=I 
FIELD=PGU UTIL  , , FORMAT=A1 

DEFINE UICBSC/A10 = UIC_ACTUAL || BSC 


SEGNAME=SCHOOLS , SEGTYPE=S1, PARENT=MEMBER 


FIELD=COLLEGE1 , FORMAT=A10 
FIELD=YRCOMP 1 , FORMAT=A2 
FIELD=LEVEL1 , FORMAT=Al1 
FIELD=MAJOR1 , FORMAT=A2 
FIELD=SPEC1 , FORMAT=A2 


FIELD=COLLEGE2 , , FORMAT=A10 


FIELD=YRCOMP2 , FPORMAT=A2 
FIELD=LEVEL2 , FORMAT=A1 
FIELD=MAJOR2 , FORMAT=A2 
FIELD=SPEC2 , FORMAT=A2 
END 
DBA=OMFDBA 2 
USER=OMFRDR ,ACCESS=R ce 
USER=OMFNV , ACCESS=RW AS 
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=e = ™~ ~~ = = = = = = = = = = 


NANONMNNONNNYNNNNNNYN 


MNMONNNNNNNNYN 


~ ~ ~ ~ ~ ~ = ~ ~ ~ 


E. 


FILENAME=UICX, SUFFIX=FOC, $ 


SEGNAME=UICFILE, SEGTYPE=S1,$ 


TABLE 5: UICX MASTER FILE 


FIELD=UICSVC 


, FORMAT=A3 


SEGNAME=UICINFO, SEGTYPE=S1,PARENT=UICFILE, $ 


FIELD=UICS5S 
FIELD=UNKN1 


FIELD=ADDR_LN NO 


FIELD=ADDR_L1 
FIELD=ADDR_L2 
FIELD=ADDR_L3 
FIELD=ADDR_L4 
FIELD=ADDR_L5 
FIELD=STATE 
FIELD=ZIPCODE 
FIELD=ZIPEXTN 
FIELD=SERVICE 
FIELD=COMP 
FIELD=DISTR 
FIELD=CONUS 
FIELD=UNKN2 
FIELD=CNTRYCDE 
FIELD=LOCTN 

F IELD=CONTN 
FIELD=STATE_H 
FIELD=CITY_H 
FIELD=ACTVTY 
FIELD=SEA_SHORE 
FIELD=MISSION 


END 


™ ~ = ™ ~~ ~~ bd = = ~ ~~ ™- = ~ = ~ = ~~ = ~~ = = = ~ 


,FORMAT=A5, FIELDTYPE=I 
, FORMAT=A2 
, FORMAT=I1 
, FORMAT=A30 
, FORMAT=A30 
, FORMAT=A30 
, FORMAT=A30 
, FORMAT=A30 
, FORMAT=A2 
, FORMAT=A5 
, FORMAT=A5 
, FORMAT=A1 
, FORMAT=A1 
, FORMAT=A2 
, FORMAT=A1 
, FORMAT=A1 
, FORMAT=A2 
, FORMAT=A1 
, FORMAT=A2 
, FORMAT=A2 
, FORMAT=A4 
, FORMAT=A1 
, FORMAT=Al1 
, FORMAT=A2 
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~~ 


~» ~ ™ - =~» 


MUNUNNUNNUNNNNUNNUNNUNMNNMNUNUNNUNUNNH " 


~ ~- => ~ ~~ - = = bd -= -= = = = = = = ™~- = 


F. TABLE 6: BSCNV MASTER FILE 
FILENAME=BSCNV, SUFFIX=FOC,$ 


SEGNAME=BSCFILE,SEGTYPE=S1,$ 


FIELD=VUICBSC ; , FORMAT=A10 
SEGNAME=BILLET,SEGTYPE=S1,$ 

FIELD=SUBSPEC ; , FORMAT=A5 

FIELD=DESCRIP ; , FORMAT=A25 

FIELD=UIC , FORMAT=A5, 
END 
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FIELDTYPE=I 


MN " 


~ ~ ~~ 


G. 


TABLE 7: 


REPORTS 
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00 
80 
bZ 
00 
c6 


Lg 
L9 
Lg 
Zs 
67 


iL 
28 
S8 
S8 
Lg 


J3dS YOFYW dWOD 


YVSA 


VNSN 
AJYILNOW 
AJYILNOW 
A3YILNOW 
AJYILNOW 


3931109 


00 
80 
LZ 
00 
c6 


LI3dS 


00 

80 

LZ 

00 

c6 

JS8 O1 LI3dS 
YIISNVYL 


00 

80 

LZ 

00 

c6 

JIN OL LI3dS 
YSISNVYL 


ON JDVd 


OLOSt 
OLOLO 
OLOLO 
OLOLL 
06666 
IS9 
IN3ZYYNI 


00 
80 
LZ 
00 
26 


bLI3dS 


£6060 00 
26060 80 
cL900 LZ 
8k 789 00 
08629 c6 

JIN LI3dS 

IN3YYND 
XJWO AAVN 


TOOHIS JLYNGVYNLSOd TWAWN 


SJIOGIW SISYIs S1S¥1 $00000000 
7IIGGIW YLSYII ¥1S¥1 900000000 
£SIGGIW F1ISYIJI £1S¥7 £00000000 
cJIOGIW Z1SYI4 21S¥1 200000000 
LJIOGIW LISYTI LLSV¥1 100000000 


Swe N NSS 


£6/£2/90 =G3evd3ud 
YOLVOIWO-ON LY¥Od3y 
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66 


(NZAOUd) wOLDOd = Dd (NZAOUd LON) wOLOOd = a 
(NZAOUd) SW-LSOd = N (N3JAOU¥d LON) SW-LSOd = W 
(NZAOUd) SW = O (NZAOUd LON) SW = d 
(NZAOUd) SW NOHL SSSI = ad (N3AONd LON) SW NOHL SSAI = 9D 
(NZAOUd ‘uYsdXd) SW ON = U4 (NBFAONd LON ‘WadXxXa) SW ON = S 
>S$gaqo0o DgadSdns 
692S 292 LOOS TWLOL 
02zT 0 OzT €9 DSS IWLOL« 
6T 0 6T re) 
96 0 96 d 
€ 0 € 5) 
Z 0 Z a €9 (SOISAHd) SHONAIOS SWAHLSAS SNOdWSM 
qqdoD oss WNINDIWIND 
TWLOL SdN-NON SdN 
ONINIWUL 
(TJONWONSLLW SdN GNW XIddNS ‘ALIWIOGdSANS AG AAZIYOOALWO) 
AUYOLNAANI ALIVWIOAdSGNS USDIAIO AAWN SN €6/E7/'O ‘sagquwdaud 


“ON dvd TIOOHOS SALWNGWYDSLSOd TWAWN YOcCWAUAWO *ON LYOddy 
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H. TABLE 8: 


PROGRAM NAME 
STARTSU EXEC 


STARTFOC 


EXEC 


PROFILE FOCEXEC 


OMFAD10P 
OMFAD11P 
OMFDA000 
OMFDA10P 
OMFDA11P 
OMFDA12P 
OMFDAI15P 
OMFDA10R 
OMFDA20R 


FOCEXEC 
FOCEXEC 
FOCEXEC 
FOCEXEC 
FOCEXEC 
FOCEXEC 
FOCEXEC 
FOCEXEC 
FOCEXEC 


USEOMF FOCEXEC 


PROGRAM FILES 


DESCRIPTION 

Disconnects the Account for SINK setup. 
Links user to FOCUS environment. 
Indentifies data base file and executes 
main menu. 

Creates OMFX FOCUS from OMF FIX. 
Matches with NPS Student Data Base. 

OMF System Main Menu. 

Add module. 

Modify module. 

Delete module. 

Add/Modify UIC and BSC transfer. 
Listing of officers from OMFX. 

Summary of subspecialties from OMFX. 
Sets password and identifies FOCUS file. 
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APPENDIX B: PROGRAMS 
A. STARTSU EXEC 
CP LINK FOCUS 191 193 
ACC 193 D 
FILEDEF SYSIN TERM 
CP SET RUN ON CP DISCONN 
HLIMAIN &SECRETWORD 
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B. STARTFOC EXEC 
&TRACE OFF 

CP LINK FOCUS 191 193 
REC 1935 

CP LINKTO FOCUS 195 
GLOBAL TXTLIB FUSELIB 
EX FOCUS 

&TRACE ON 
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C. PROFILE FOCEXEC 
EX USEOMF 
EX OMFDA000 
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D. OMFADIOP FOCEXEC 


Kkkkkkk&k&k&kkk&kkkkekkkKkkkkkkKkkk&k&kkkkKkKKkKk&kkkkkkKkkKkk&kKkkkkkxkkkk&kkkkKkKkKkkkkkKek 


* PROGRAM: OMFAD10P FOCEXEC 

* Date: 15 Jan 1993 J. Harr 

* Description: This is the initial upload program from an Officer 

* Master fixed file provided by DMDC, Bill King. 

kKkeKeKKRKKKKKKKKKKKKKKKRKKKKKKKAKKKKKKKKKKKKKRKKKeKeKKKKkKRKRKKRKRkRKRKRKKKeKKRKKKKKK KK 

-* CMS FILEDEF OMFX DISK OMFX FOCUS D (RECFM F LRECL 890 

CMS FILEDEF OMF DISK OMF DATA D (RECFM F LRECL 316 

CMS FILEDEF OMFDUPS DISK OMFDUPS DATA A (RECFM F LRECL 316 

MODIFY FILE OMFX 

CASE TOP 

LOG DUPL ON OMFDUPS MSG OFF 

LOG INVALID MSG OFF 

COMPUTE VALTEST/I1 = ; 

COMPUTE ALUM _FLAG/Al1 = 

COMPUTE ALUM DATE/I4YM = ; 

COMPUTE FILE _DATE/I4YY = ; 

COMPUTE UIC1 X_TO/AS5 

COMPUTE BSC1 X TO/A5 

COMPUTE PAY1 BACK/A1l 

COMPUTE SPONS1 NAME/A27 =; 

COMPUTE SPONS1 ADDR1/A20 = 

COMPUTE SPONS1 ADDR2/A20 = ; 

COMPUTE SPONS1_ ADDR3/A20 = ; 

COMPUTE SPONS1 CITY/A20 = ; 

COMPUTE SPONS1 ST/A2 = 

COMPUTE SPONS1 ZIP/A10 ; 

COMPUTE RPT1_DATE/I4YM : 

COMPUTE UIC2_X_TO/A5 

COMPUTE BSC2_X_TO/AS5S 

COMPUTE PAY2_BACK/Al =; 

COMPUTE SPONS2_NAME/A27 = 

COMPUTE SPONS2_ADDR1/A20 

COMPUTE SPONS2_ADDR2/A20 

COMPUTE SPONS2_ADDR3/A20 

COMPUTE SPONS2 CITY/A20 = ; 

COMPUTE SPONS2_ ST/A2 = 

COMPUTE SPONS2_ ZIP/A10 ; 

COMPUTE RPT2_DATE/I4YM . 

COMPUTE SVC/A3 = ; 

COMPUTE NAME X/A4 = ; 

COMPUTE NAME TSHORT/A8 =; 

FIXFORM X5 PR GRADE/Al1 PROMO STAT/A4 YEAR GRP/A2 

FIXFORM Xl DESIG/A4 X1 SEL FY/A2 SEL INCR/A1l SEL | PGM/A1 

FIXFORM SEL _CURR/A3 SEL _ STAT/Al X37 BSC/A5 

FIXFORM X1 COLLEGE1/A10 X2 YRCOMP1/A2 

FIXFORM X1 LEVEL1/Al MAJOR1/A2 SPEC1/A2 

FIXFORM COLLEGE2/A10 X2 YRCOMP2/A2 

FIXFORM X1 LEVEL2/Al MAJOR2/A2 SPEC2/A2 

FIXFORM SUBSPEC1/A5 SUBSPEC2/A5 SUBSPEC3/A5 

FIXFORM X71 DOD_LOSS _COD/A3 GENDER/A1 X2 PGU_UTIL/A1 

FIXFORM UIC ACTUAL/A5 UIC PARENT/AS5 

FIXFORM X67 SSN/A9 NAME/A27 YOS/Al1 

COMPUTE FILE DATE = 1991; 

COMPUTE ALUM_FLAG/A1 = 'Y’'; 

COMPUTE ALUM_DATE/I4YM = 0; 

COMPUTE UIC1 X TO/AS5 = ' i 
e 


a | ie 


me 


=e 


How Ws 


Wo ils 


COMPUTE BSC1_xX_TO/A5 
COMPUTE PAY1 BACK/A1 On; 
COMPUTE SPONS1 NAME/A27 = ' a 
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COMPUTE SPONS1 ADDR1/A20 
COMPUTE SPONS1 ADDR2/A20 
COMPUTE SPONS1 ADDR3/A20 
COMPUTE SPONS1 CITY/A20 = 
COMPUTE SPONS1] ST/A2 = ' '; 
COMPUTE SPONS1 ZIP/A10 = 
COMPUTE RPT1 DATE/I4YM = 9201; 


7 ~= = = 


* ~~ = = 


=e *®*e Be Ge 


COMPUTE UIC2 xX TO/A5 = 
COMPUTE BSC2_X_ TO/A5 
COMPUTE PAY2_BACK/A1 ; 
COMPUTE SPONS2 NAME/A27 = ' a 
COMPUTE SPONS2 ADDR1/A20 = 
COMPUTE SPONS2_ADDR2/A20 = 
COMPUTE SPONS2_ ADDR3/A20 = 
COMPUTE SPONS2 CITY/A20 = 
COMPUTE SPONS2 ST/A2 = ' '; 
COMPUTE SPONS2 ZIP/A10 = ' 
COMPUTE RPT2_ DATE/I4YM = 9201; 
COMPUTE SVC = ‘NV '; 
COMPUTE NAME X = EDIT(NAME, ‘9999SSSSSSSSSSSSSSSSSSSS$S$S$$'); 
COMPUTE NAME SHORT = EDIT(NAME, '99999999SSSSSSSSSSSSSSSSS$SS'); 
VALIDATE 

VALTEST = IF COLLEGE] EQ ‘MONTEREY’ OR COLLEGE2 EQ ‘MONTEREY’ 

THEN 1 ELSE 0; 

ON INVALID GOTO TOP 
MATCH SVC 

ON NOMATCH INCLUDE 

ON MATCH CONTINUE 
MATCH SSN 

ON NOMATCH INCLUDE 

ON MATCH CONTINUE 
MATCH UIC ACTUAL 

ON NOMATCH INCLUDE 

ON MATCH CONTINUE 
MATCH COLLEGE] 

ON NOMATCH INCLUDE 

ON MATCH REJECT 
ENDCASE 
DATA ON OMF 
END 


= *= *= = 
=e =e =e =e 
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E. OMFADI1P FOCEXEC 


RKKKKKKEKKKKRR KKK KEKEEKKKKKKKKKKKRKKKKKKKKKKKKKKKKRKKKKKKK 


* PROGRAM: OMFAD11P FOCEXEC 

* Date: 15 Mar 1993 J. Harr 

* Description: This upload program updates the OMFX file with the 

* navy student match extract. 
kekkxkkkkkkkkkkkkkkkekkkkkkkkkkkkekkkkkkkkkkkkkkekKkKkkkekkkekkkkekkekekekekkkkekkekk 
-* CMS FILEDEF OMFX DISK OMFX FOCUS D (RECFM F LRECL 890 

CMS FILEDEF OMFIT DISK NOMF FOCTEMP T (RECFM F LRECL 316 

-* CMS FILEDEF OMFDUPS DISK OMFDUPS DATA A (RECFM F LRECL 316 

MODIFY FILE OMFX 

CASE TOP 

LOG DUPL MSG OFF 

LOG INVALID MSG OFF 
COMPUTE VALTEST/I1 = ; 
COMPUTE ALUM FLAG/A1 
COMPUTE ALUM _DATE/I4YM 
COMPUTE FILE DATE/I4YY ; 
COMPUTE UIC1 X_TO/A5 
COMPUTE BSCl X TO/AS 
COMPUTE PAY1 _BACK/A1 
COMPUTE SPONS1 NAME/A27 = 
COMPUTE SPONS1 ADDR1/A20 
COMPUTE SPONS1 ADDR2/A20 
COMPUTE SPONS1 ADDR3/A20 
COMPUTE SPONS1 CITY/A20 = ; 
COMPUTE SPONS1 ST/A2 = ; 
COMPUTE SPONS1 ZIP/A10 = ; 
COMPUTE RPT1_DATE/I4YM = ; 
COMPUTE UIC2 xX TO/A5 = 
COMPUTE BSC2_ X TO/AS = ; 
COMPUTE PAY2 BACK/A1 =; 
COMPUTE SPONS2 NAME/A27 
COMPUTE SPONS2_ADDR1/A20 
COMPUTE SPONS2_ADDR2/A20 
COMPUTE SPONS2 ADDR3/A20 
COMPUTE SPONS2 CITY/A20 = ; 
COMPUTE SPONS2 ST/A2 = 
COMPUTE SPONS2_ZIP/A10 
COMPUTE RPT2_DATE/I4YM : 

COMPUTE SVC/A3 = ; 

COMPUTE NAME X/A4 = ; 

COMPUTE NAME SHORT/A8 = ; 

FIXFORM X5 PR GRADE/A1l PROMO STAT/A4 YEAR GRP/A2 
FIXFORM X1 DESIG/A4 X1 SEL_FY/A2 SEL_INCR/Al SEL_PGM/A1l 
FIXFORM SEL CURR/A3 SEL _STAT/A1 X37 BSC/AS5 

FIXFORM X1 COLLEGE1/A10 X2 YRCOMP1/A2 

FIXFORM X1 LEVEL1/Al MAJOR1/A2 SPEC1/A2 

FIXFORM COLLEGE2/A10 X2 YRCOMP2/A2 

FIXFORM Xl LEVEL2/Al MAJOR2/A2 SPEC2/A2 

FIXFORM SUBSPEC1/A5 SUBSPEC2/A5 SUBSPEC3/A5 

FIXFORM X71 DOD_LOSS_COD/A3 GENDER/A1 X2 PGU_UTIL/A1 
FIXFORM UIC ACTUAL/A5 UIC PARENT/A5 

FIXFORM X67 SSN/A9 NAME/A27 YOS/A1 

COMPUTE FILE DATE = 1991; 
COMPUTE ALUM FLAG/A1l = ‘Y'; 
COMPUTE ALUM DATE/I4YM . 


=e 


=e 


| en | 


i ow its. 


f 


ll tls 


COMPUTE UIC1_X_TO/AS5 
COMPUTE BSC1l_ X_TO/A5 
COMPUTE PAY1_ BACK/Al ; 
COMPUTE SPONS1_NAME/A27 : 
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COMPUTE SPONS1 ADDR1/A20 
COMPUTE SPONS1 ADDR2/A20 
COMPUTE SPONS1 ADDR3/A20 
COMPUTE SPONS1] CITY/A20 = 
COMPUTE SPONS1 ST/A2 = ' ; 
COMPUTE SPONS1 ZIP/A10 
COMPUTE RPT1 DATE/I4YM 
COMPUTE UIC2_X TO/A5 
COMPUTE BSC2_ X TO/A5 
COMPUTE PAY2 BACK/A1 0%; 
COMPUTE SPONS2 NAME/A27 = ' a 
COMPUTE SPONS2_ ADDR1/A20 
COMPUTE SPONS2 ADDR2/A20 
COMPUTE SPONS2_ADDR3/A20 
COMPUTE SPONS2_CITY/A20 = 
COMPUTE SPONS2 ST/A2 = ' '; 
COMPUTE SPONS2 ZIP/A10 = ' 
COMPUTE RPT2_DATE/I4YM = 9201; 
COMPUTE SVC = ‘NV ’; 
COMPUTE NAME_X = EDIT(NAME, '9999SSSSSSSSSSSSSSSSSSSSSS$"'); 
COMPUTE NAME SHORT = EDIT(NAME, '99999999SSSSSSSSSSSSSSSSSSS'); 
MATCH SVC 

ON NOMATCH INCLUDE 

ON MATCH CONTINUE 
MATCH SSN 

ON NOMATCH INCLUDE 

ON MATCH CONTINUE 
MATCH UIC ACTUAL 

ON NOMATCH INCLUDE 

ON MATCH CONTINUE 
MATCH COLLEGE] 

ON NOMATCH INCLUDE 

ON MATCH REJECT 
ENDCASE 
DATA ON OMFIT 
END 


= 
~- 7” ~~ = 
7» = = = 
™=e =e Re ™e 


= 
~= 


9201; 


pets es | Fe | 


= = =» = 


= = = = 
=e SDe Be Be 
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F. OMFDAOOO FOCEXEC 


—_kkkkkkkkkkkkk REMOVE BEFORE INSTALLATION ***# 4k kkkR KKK KER 
SET PFO4 = END 


ae KKK KKK KEKKKKKEKKKEEKEKEKEKEEKEEKEKKEKEEKEKEKKKKKKKKKKKKKKkekKKKK KK KKK 


='* 


-* Program: OMFDA000 

-* This is the main menu for the Officer Master File system. 
_* 

-* Calls: 

-* OMFDA10P ADD an Individual Record 

-* OMFDA11P Modify an OMF Record 

-* OMFDA12P Delete an OMF Record 

-* OMFDA15P Add Transfer Data to OMF 

-* OMFDA80R DISPLAY/PRINT AN INDIVIDUAL(S) RECORD 
-* OMFDAYOR PRINT A SUMMARY REPORT 

—_ * 


ae CHK KKK KK KKK KKEKKEKKEKEKKEKEKEKEKEKKEKKKKKKEKKKKKKKKKKKKKRKKKRKKKKKkKKKKKK 


SET PF03 = RETURN 
SET PF15 = RETURN 


-RUN 

-* Note: The Service variable (&&SVC) is set to ‘'NV ’ for Navy. 
ak&kxkknk kkxkkek kkekkk kKekek«k kaekkek xke¥kK* kkeaekk 
-SET &&SVC = ‘NV '; 

—_x*kekKKK kkekek* xkkekkk ke kkk wkKkekkk kekknk kkekknx 
-SET &PFKEY = ’ iS 

-SET GOPTION = ’ '; 

-SET &:AAA = ' a 

-SET &:BBB = ' ae 

-SET &CURSOR=’ :AAA’ ; 

-START 

-CRTFORM 

-" OOONDNN000000 MMMM MMMMM <0X 
—=PrPPrhrrhrrre 

=> OODNDNNNNNNNN000N0 MMMM MMMMM <OX 
=PPPPPFEPPEee. 

-" 00 0O MM MM MM MM Op oes 
= 00 00 MM MM MM MM PERPFFEP oo 
-" OO 00 MM MM MM MM ne 
-" 00 00 MM MMMM MM PE 
-" OOOODNDONOONC000000 MM MM MM EPS 
a OOOOO0000000 MM MM FF" 
-"</02 " 

-" Naval Postgraduate School" 

-* OFFICER MASTER FILE SYSTEM" 

-" NAVY" 

-"</02 " 

-" Press ENTER to continue” 

-IF &PFKEY = ‘'PF0O3’ OR ’PF15’ THEN GOTO EXITING; 

~BEGIN 

-CRTFORM 

-" OMFDA000-1.0 <0X 


- <D.&DATE/08" 
a, Naval Postgraduate School" 


ae OFFICER MASTER FILE SYSTEM" 


= OMF MAIN EDIT MENU" 
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= 1. Add an Individual Record " 

-" 2. Modify Individual Record " 

hy 3. Delete Individual Record " 

= 4. Add Transfer Data " 

= T. Report with TABLETALK 

-" > Gr BALES 

a Service --> <0X 
-<&:BBB.CD.&&SVC/02>" 

~" OPTION }<&:AAA.C.&OPTION/O1| { <.HD.&MSG/44" 
~SET &GOBACK=‘ BEGIN’; 

-SET &MSG = ' a 


SSET SEMSGFLAG = ° '; 

-SET SWHERE=DECODE &OPTION(1 ‘OMFDA10P’ 2 ‘OMFDA11P’ 
Es 3 'OMFDA12P’ 4 'OMFDA15P’ 
z T ‘TABLETALK’ 

zs X ‘EXITING’ 

. R ‘EXIT’ 

ELSE 'ERRORMSG’); 

-IF &PFKEY EQ ‘'PF03’ OR 'PF15’ THEN GOTO EXIT; 

-IF &WHERE EQ ‘EXIT’ THEN GOTO EXIT; 

~IF &WHERE EQ ‘EXITING’ THEN GOTO EXITING; 

-IF &WHERE EQ 'TABLETALK’ THEN GOTO TABLERPT; 

-* OMFUSE SETS UP THE OMF DATABASE 

-* EX USEOMF 

-* -RUN 
EX &WHERE 
-RUN 

SET PF03 
SET PF15 
~RUN 
-GOTO &GOBACK 
=* OPTION T 
~TABLERPT 
TABLETALK 
~RUN 

SET PF03 
SET PF15 
~RUN 
-GOTO &GOBACK 

-* OPTION X 

-EXITING 

SET PF03 = END,PF15 = END 
FIN 

-EXIT 


RETURN 
RETURN 


RETURN 
RETURN 


~ERRORMSG 
-SET &MSG = ‘OPTION } ‘ | SOPTION | ’ { is incorrect. Please reenter.’; 
-GOTO &GOBACK 


~ERRORMSG2 

~SET &MSG = ‘Svc } ' | &sssvc | ‘ { is incorrect. Please reenter.’; 
~SET &CURSOR = ‘':BBB’; 

-GOTO &GOBACK 
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G. OMFDA1OP FOCEXEC 


—~—K*KeKKKKKKKKKKkKKkKkKKkKkKKKkk&KkKKkKkKk&KkxkKkk&KkKKkKKKKKKKKKKKEKKKKkxkx&KKKKKKk&k&k&k&k&KkKkKKKKkKkKKKkKKKKKKKK Kk 


-* Program: OMFDA10P 
-* This program is used to input student personnel data not on initial 
-* data base. 
— 
-* Called From: OMFDA000 FOCEXEC main dirver program menu. 
-* Files: OMFX FOCUS 
—KKKKKKKKEKKKKKEKKKKKKKKKKKKKKEKKKKKEKKKKkKKKKEKKEkKKkKKKKKekkKKKkKkKkeKkkkKKKKKKKKkKKKkK 
SET PFO3 = RETURN 
SET PF15 = RETURN 
-RUN 
MODIFY FILE OMFX 
COMPUTE 
DUM/A1 = ; 
PFKEY/A4 = ; 
GOTO BEGIN 
CASE BEGIN 
COMPUTE 
TSVC/A3 = ‘NV '; 
TUIC/A5S = ’62271'; 
TCOLLEGE/A10 = ‘NPS st 
CRTFORM LINE 01 TYPE 1 
" OMFDAI1OP-1.1 NAVAL POSTGRADUATE SCHOOL <0X 
& DATE" 
us OFFICER MASTER FILE SYSTEM" 
. ADD SCREEN 1" 


" Create an Officer Master record by entering the following data:" 


- SSN <T.SSN/09>" 
i Svc: <D.TSVC/03>" 
e CURRENT UIC: <D -TULE/ 05>" 
" COLLEGE : <D.TCOLLEGE/10>" 
"</09) = 
_ PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ’PFO3’ OR ‘'PF15’ THEN GOTO EXIT; 
COMPUTE 
SVC = TSVC; 


UEC ACTUAL = TUDG: 
COLLEGE] = TCOLLEGE; 
MATCH SVC 
ON MATCH TYPE "SVC MATCH " 
ON NOMATCH TYPE "SVC <SVC NOMATCH " 
ON MATCH CONTINUE 
MATCH SSN 
ON MATCH TYPE "SSN <SSN EXISTS " 
ON MATCH REJECT 
ON NOMATCH TYPE "SSN NOMATCH " 
ON NOMATCH GOTO ADDSSN 
ENDCASE 


CASE ADDSSN 

COMPUTE SSN = SSN; 

CRTFORM LINE 01 

"  OMFDA10P-1.2 NAVY POSTGRADUATE SCHOOL <0X 
& DATE" 

“ Officer Master File System" 

; Add Screen 2" 

‘ SSN: <D.SSN/09>" 
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St et = 


NAME (LAST FIRST MIDDLE): <T.NAME/27>" 

* GENDER (F/M): <T.SEX/01> ESTIMATED TIME IN SERVICE (A3): <0X 
<T.ETS/03>" 

" YOS (1 2 3 ): <T.YOS/01> PAY GRADE: <T.PG/01>" 

" PROMOTION STATUS: <T.PROMO STAT/04>" 

YEAR GROUP: <T.YG/02> DESIGNATOR: <T.DESIG/04>" 

" SELECTION YEAR: <T.SEL FY/02> INCREMENT: <0X 
<T.SEL_INCR/01> PROGRAM: <T.SEL PGM/01>" 

" CURRICULUM: <T.SEL_CURR/01> STATUS: <T.SEL STAT/01>" 


o/05 " 
" PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ‘'PF03’ OR ‘'PF15’ THEN GOTO EXIT; 
MATCH SSN 
ON NOMATCH 


COMPUTE NAME SHORT = EDIT(NAME, ‘99999999SSSSSSSSSSSSSSSSS$$'); 
ON NOMATCH INCLUDE 
ON NOMATCH GOTO ADDUIC 
ENDCASE 


CASE ADDUIC 
COMPUTE SSN = SSN; 
UIC ACTUAL = AUIC; 
CRTFORM LINE 01 
"  OMFDA1OP-1.3 Officer Master File System <0OX 
& DATE” 
: Add Screen 3" 
"<,HD.NAME/27>" 
"Please input UIC data..." 
"CURRENT UIC: <D.UIC ACTUAL/05> CURRENT BSC: <T.BSC/05>" 


"Is this a pay back tour or billet: }<T.PAY1 BACK/01>({" 
"(1 = Yes; 2 = School/Training; 3 = Unknown; 4 = No)" 
"UIC }<T.UIC1 xX TO/05>{ BSC }<T.BSCl_X TO/05>{ ETS (YM) }<0X 


<T.RPT1_ DATE/04>{" 

"Sponsor Name }<T.SPONS1 NM/27>{" 

"Sponsor Address }<T.SPONS1 ADDR1/20>{" 
}<T.SPONS1_ ADDR2/20>{" 

: City }<T.SPONS1_ CITY/20>{ State }<0x 

<T.SPONS1_ STATE/02>{ Zip }<T.SPONS1 ZIP/10>{" 

"FOLLOWING tour of duty:" 


"UIC }<T.UIC2 X TO/05>{ BSC }<T.BSC2_ X TO/05>{ ETS (YM) }<0X 
<T.RPT2_DATE/04>{" 
"Is this a pay back tour or billet: }<T.PAY2_ BACK/01>({" 


"Sponsor Name }<T.SPONS2_NM/27>({" 

"Sponsor Address }<T.SPONS2_ADDR1/20>({" 

: }<T.SPONS2_ADDR2/20>{" 

City }<T.SPONS2 CITY/20>{ State }<0x 
<T.SPONS2_STATE/02>{ Zip }<T.SPONS2_ZIP/10>{" 

3 PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ’PFO03’ OR ‘'PF15’ THEN GOTO EXIT; 


MATCH UIC_ACTUAL 
ON NOMATCH TYPE "AUIC NOMATCH " 
ON MATCH TYPE "AUIC MATCH " 
ON MATCH UPDATE BSC 
ON MATCH GOTO ADDEDU 

ENDCASE 


CASE ADDEDU 
COMPUTE SSN = SSN; 

COLLEGE] = COLLEGE]; 
CRTFORM LINE 01 
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"  OMFDAI1OP-1.4 Officer Master File System <0X 


& DATE" 
Add Screen 4" 


1 Lal 


"<,.HD.NAME/27>" 


1D ] i] 


"Please input current graduate data:" 


"COLLEGE NAME }<D.COLLEGE1/10>{ YEAR COMPLETED }<0X 
<T.YRCOMP1/02>({" 
"Level }<T.LEVEL1/01>{ Major }<T.MAJOR1/02>{ Specialty }<OX 


<T.SPEC1/02>({" 


"Please input previous college data:" 


"College Name }<T.COLLEGE2/10>{ Year Completed }<0xX 

<T. YRCOMP2/02>({" 

"Level }<T.LEVEL2/01>{ Major }<T.MAJOR2/02>{ Specialty }<OX 
<T.SPEC2/02>(" 

*</05~ =" 


PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ 'PFO0O3’ OR 'PF15’ THEN GOTO EXIT; 
MATCH SSN 
ON MATCH TYPE "COL SSN MATCH " 
ON NOMATCH TYPE "COL SSN NOMATCH " 
ON MATCH CONTINUE 
MATCH COLLEGE] 
ON NOMATCH TYPE "** ERROR IN ADDEDU CASE ** " 
ON MATCH TYPE "** <NAME HAS BEEN ADDED TO THE OMF **" 
ON MATCH UPDATE YRCOMP1 
ENDCASE 


CASE ERRMSG 

CRTFORM LINE 1 

" *** Record already in data base. Use Update Menu to MODIFY. ***" 
ENDCASE 

DATA 

END 
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H. OMFDA11P FOCEXEC 


—KERKKRKRK RRMA KKK KK 


-* Program: OMFDA11P 
-* This program is used to modify student personnel data. 
=e 
-* Files: OMFX FOCUS 
Zetec eee eee eee eee ee eee eR RR RRR RRR RRR R RRR R RRR RRR RRR RRR RES ER RRR SE ee ee ee 
SET PF03 = RETURN 
SET PF15 = RETURN 
~RUN 
MODIFY FILE OMFX 
COMPUTE 
DUM/A1 = ; 
PFKEY/A4 = ; 
GOTO BEGIN 


CASE BEGIN 
COMPUTE 
TSVC/A3 NW =" 3 
TUIC/A5 e622 71'% 
TCOLLEGE/A10 = ‘NPS e 
CRTFORM LINE 01 TYPE 1 
" OMFDAI11P-1.1 NAVAL POSTGRADUATE SCHOOL <0OX 
&DATE" 
2 OFFICER MASTER FILE SYSTEM" 
- Modify Screen 1" 


" Modify an Officer Master record by entering the following data:" 


. SSN <T.SSN/09>" 
: SVC: <D.TSVC/03>" 
; CURRENT UIC: <D.TUIC/05>" 
: COLLEGE: <D.TCOLLEGE/10>" 


"</09 " 
. PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ‘'PFO3’ OR ‘PF15’ THEN GOTO EXIT; 
COMPUTE 
SVC = TSVC; 
UIC ACTUAL = TUIC; 
COLLEGE] = TCOLLEGE; 
MATCH SVC 
ON MATCH TYPE “SVC MATCH " 
ON NOMATCH TYPE "SVC <SVC NOMATCH " 
ON MATCH CONTINUE 
MATCH SSN 
ON NOMATCH GOTO ERRMSG 
ON MATCH TYPE "SSN MATCH " 
ON MATCH GOTO MODSSN 
ENDCASE 


CASE MODSSN 

COMPUTE SSN = SSN; 

CRTFORM LINE 01 

" OMFDAI11P-1.2 NAVY POSTGRADUATE SCHOOL <0QX 
&DATE" 

: Officer Master File System" 

: Modify Screen 2" 

. SSN: <D.SSN/09>" 

‘i NAME (LAST FIRST MIDDLE): <T.NAME/27>" 

4 GENDER (F/M): <T.SEX/01> ESTIMATED TIME IN SERVICE (A3): <0X 

<T.ETS/03>" 
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"  YOS (1 2 3): <T.YOS/01> PAY GRADE: <T.PG/01>" 
"PROMOTION STATUS: <T.PROMO STAT/04>" 
"YEAR GROUP: <T.YG/02> DESIGNATOR: <T.DESIG/04>" 
"SELECTION YEAR: <T.SEL FY/02> INCREMENT: <0OX 
<T.SEL_INCR/01> PROGRAM: <T.SEL PGM/01>" 
"CURRICULUM: <T.SEL_CURR/01> STATUS: <T.SEL_STAT/01>" 
"</05 " 
‘ PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ’PF03’ OR ‘'PF15’ THEN GOTO EXIT; 
MATCH SSN 
ON MATCH 
COMPUTE NAME SHORT = EDIT(NAME, '99999999SSSSSSSSSSSSSSSSSS$"); 
ON MATCH UPDATE NAME SHORT NAME FY SEX ETS YOS PG PROMO STAT 
ON MATCH UPDATE YG DESIG SEL_FY SEL_INCR SEL PGM SEL CURR SEL STAT 
ON MATCH GOTO MODUIC 7 7 
ENDCASE 


CASE MODUIC 
COMPUTE SSN = SSN; 
UIC ACTUAL = AUIC; 
CRTFORM LINE 01 
"  OMFDA11P-1.3 Officer Master File System <0X 
& DATE" 
‘ Modify Screen 3" 
"<.HD.NAME/27>" 
"Please input UIC data. 
"CURRENT UIC: <D.UIC  ACTURL/ 05> CURRENT BSC: <T.BSC/05>" 


"Is this a pay back tour or billet: }<T.PAY1 BACK/01>({" 
"(1 = Yes; 2 = School/Training; 3 = Unknown; 4 = No)" 
"UIC }<T.UIC1 X TO/05>{ BSC) j}<7 BSeCl) kK 10/705-) ETS (YM) }<0X 


<T.RPT1 DATE/04>{" 

"Sponsor Name }<T.SPONS1 NM/27>{" 

"Sponsor Address }<T.SPONS1_ADDR1/20>{" 
}<T.SPONS1_ADDR2/20>{" 

: city }<T. SPONS1 CITY/20>{ State }<0X 

<T.SPONS1 STATE/02>{ Zip }<T.SPONS1_ ZIP/10>({" 

"FOLLOWING tour of duty:" 


"UIC }<T.UIC2 X_TO/05>{ BSC }<T.BSC2_X_TO/05>{ ETS (YM) }<0OX 
<T.RPT2_DATE/04>({" 
"Is this a pay back tour or billet: }<T.PAY2_BACK/01>({" 


"Sponsor Name }<T.SPONS2 NM/27>{" 
"Sponsor Address }<T.SPONS2_ADDR1/20>({" 
}<T.SPONS2_ADDR2/20>{" 
‘ City }<T.SPONS2 CITY/20>{ State }<0X 
<T.SPONS2_ STATE/02>{ Zip }<T.SPONS2_ZIP/10>{" 
= PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ’PFO3’ OR ‘'PF15’ THEN GOTO EXIT; 


MATCH UIC_ACTUAL 
ON NOMATCH TYPE "AUIC NOMATCH " 
ON MATCH TYPE "AUIC MATCH " 
ON MATCH UPDATE BSC PUIC XUIC1 XBSCl PAY1_BACK SPONS1 NM 
ON MATCH UPDATE SPONS1_ADDR1 SPONS]_ ADDR2 SPONS1 ADDR3 
ON MATCH UPDATE SPONS1 CITY SPONS1_ STATE SPONS1 ZIP RPT1_DATE 
ON MATCH UPDATE XUIC2 XBSC2 PAY2_BACK SPONS2_NM_ 
ON MATCH UPDATE SPONS2 ADDR1 SPONS2_ADDR2 SPONS2_ ADDR3 
ON MATCH UPDATE SPONS2_CITY SPONS2 STATE SPONS2 ZIP RPT2_DATE 
ON MATCH GOTO MODEDU 

ENDCASE 


CASE MODEDU 
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COMPUTE SSN = SSN; 
COLLEGE1 = COLLEGE]; 
CRTFORM LINE 01 
"  OMFDA11P-1.4 Officer Master File System <0OX 
& DATE " 
Modify Screen 4" 


"<.HD.NAME/27>" 


"Please input current graduate data:" 


"COLLEGE NAME }<D.COLLEGE1/10>{ YEAR COMPLETED }<0X 
<T.YRCOMP1/02>(" 
"Level }<T.LEVEL1/01>{ Major }<T.MAJOR1/02>{ Specialty }<0X 


<T.SPEC1/02>{" 


"Please input previous college data:" 


"College Name }<T.COLLEGE2/10>{ Year Completed }<0x 

<T. YRCOMP2/02>({" 

"Level }<T.LEVEL2/01>{ Major }<T.MAJOR2/02>{ Specialty }<OX 
<T.SPEC2/02>{" 

"</05 CT] 


ii PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ‘’PF03’ OR ’PF15’ THEN GOTO EXIT; 
MATCH SSN 

ON MATCH CONTINUE 
MATCH COLLEGE] 

ON NOMATCH TYPE "** ERROR IN MODEDU CASE ** " 

ON MATCH TYPE "** Record has been modified: <NAME **" 

ON MATCH UPDATE YRCOMP1 LEVEL1 MAJOR1 SPEC1 

ON MATCH UPDATE COLLEGE2 YRCOMP2 LEVEL2 MAJOR2 SPEC2 
ENDCASE 


CASE ERRMSG 

CRTFORM LINE 1 

" *** Record NOT in data base. Use Add Menu to ADD. ***" 
ENDCASE 

DATA 

END 
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i OMFDA12P FOCEXEC 


WKH KKKKKEKKKEKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKhkKkhkhkkhkkhkhkhhkhnknk 


-* Program: OMFDA12P 
-* This program is used to delete OMFX records. 
—_w 
-* Files: OMFX FOCUS 
a—weencKwKwcaenekewkkkakKkheaeKkKekkkkKkkk&kkkkkxkkkkxkkk&kkkxkkxkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
SET PFO3 RETURN 
SET PF15 RETURN 
-RUN 
MODIFY FILE OMFX 
COMPUTE 
DUM/A1 = ; 
PFKEY/A4 = ; 
GOTO BEGIN 


CASE BEGIN 

COMPUTE 
TSVC/A3 = ‘NV '; 

CRTFORM LINE 01 TYPE 1 

" OMFDA12P-1.1 NAVAL POSTGRADUATE SCHOOL <0X 
& DATE " 

" OFFICER MASTER FILE SYSTEM" 

" Delete Screen" 


" Delete an Officer Master record by entering the following data:”" 
: SSN <T.SSN/09>" 

"</09 " 
vs PRESS PF3/PF15 TO RETURN TO PREVIOUS MENU" 
IF PFKEY EQ ‘’PF03’ OR ’PF15’ THEN GOTO EXIT; 


COMPUTE 
SVC = TSVC; 
MATCH SVC 
ON MATCH CONTINUE 
MATCH SSN 


ON NOMATCH GOTO ERRMSG 
ON MATCH TYPE "** Record <SSN DELETED. Enter next SSN or exit. **" 
ON MATCH DELETE 

ENDCASE 


CASE ERRMSG 

COMPUTE SSN = SSN; 

CRTFORM LINE 1 

" ««** RECORD <D.SSN NOT IN DATA BASE. ***" 
ENDCASE 

DATA 

END 
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J. OMFDA15P FOCEXEC 


KAKA KKK KM KKA KKK HEME KEM KEMAH KAKA KK KKK KK KKK KK KKK KKK 


* Program: OMFDAI15P 

* This program is used for students to input their UIC and BSC that 
-* they are transferring to. 
* 


-* Files: OMFX FOCUS -- indexes by SSN 
aaa nwkk kkk aka aK KKK KKK KKK KKK KHHKKEKKKEKKE KKK KKK KKK KK KKK KK KKK KK KKK 
SET PFO03 = RETURN 
SET PF15 = RETURN 
CMS FILEDEF OMFNOSSN DISK OMFNOSSN DATA A (LRECL 100 RECFM FB DISP MOD) 
MODIFY FILE OMFX.SSN 
LOG NOMATCH ON OMFNOSSN MSG OFF 
COMPUTE 
DUM/Al = ; 
PFKEY/A4 = ; 
GOTO BEGIN 


CASE BEGIN 
COMPUTE 

DOC NUM/A8 = '‘'; 

AC_NUM/A2 = ''; 
CRTFORM LINE 01 TYPE 1 
" OMFDAI5P-1.0 SVC &&SVC <0X 

& DATE" 

: Officer Master File System" 
: Edit Screen" 
a7 Ol ” 
: Enter SSN }<SSN/09>{  " 
ft 13 («" 
7 PRESS ENTER to Continue or PF3 to Quit" 
IF PFKEY EQ ‘PFO03’ OR ‘PF15’ THEN GOTO EXIT; 
MATCH SSN 

ON NOMATCH TYPE 

"**SSN } <SSN { IS NOT ON FILE**" 

ON NOMATCH REJECT 

ON MATCH GOTO EDINFO 
ENDCASE 


CASE EDINFO 

NEXT UIC_ACTUAL 

ON NEXT 

CRTFORM LINE 04 

" <.HD.NAME/27>" 

y PLEASE PROVIDE THE FOLLOWING INFORMATION..." 


"NEXT tour of duty assignment:" 


"UIC }<T.UIC1 xX TO/05>{ BSC }<T.BSC1_ xX TO/05>{ ETS (YM) }<0OX 
<T.RPT1 DATE/04>{" 
"Is this a pay back tour or billet: }<T.PAY1 BACK/01>({" 


"(1 = Yes; 2 = School/Training; 3 = Unknown; 4 = No)" 
"Sponsor Name }<T.SPONS1 NM/27>{" 
"Sponsor Address }<T.SPONS1 _ADDR1/20>({" 

}<T.SPONS1 ADDR2/20>{" 
: City }<T.SPONS1 CITY/20>{ State }<0x 
<T.SPONS1 STATE/02>{ Zip }<T.SPONS1_ ZIP/10>({" 
"FOLLOWING tour of duty:" 


"UIC }<T.UIC2_X TO/05>{ BSC }<T.BSC2_X_TO/05>{ ETS (YM) }<0X 
<T.RPT2 _DATE/04>({" 
"Is this a pay back tour or billet: }<T.PAY2_BACK/01>({" 


"Sponsor Name }<T.SPONS2_NM/27>{" 
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"Sponsor Address }<T.SPONS2 ADDR1/20>{" 
}<T.SPONS2 ADDR2/20>{" 
Grey }<T.SPONS2 CITY/20>{ State 


<T.SPONS2_STATE/02>{ 


}<0X 


Zip }<T.SPONS2_ ZIP/10>{" 


"***PRESS TAB to Next Field, ENTER to Add Data, or PF3 to Quit***" 


IF PEKE 


ON 


Y BO: Pros. 


NEXT TYPE 


OR ‘'PF15' THEN GOTO EXIT; 


"<40 UIC/BSC INFORMATION UPDATED" 


NEXT UPDATE 
NEXT UPDATE 
NEXT UPDATE 
NEXT UPDATE 
NEXT UPDATE 
NEXT UPDATE 
NONEXT TYPE 


UIC1 X TO BSCl_ X TO 
SPONS1 ADDR1 SPONS1 ADDR2 
SPONS1 CITY SPONS1 STATE 
UEC2 Eero BSC2_X TO 
SPONS2 ADDR1 SPONS2_ ADDR2 
SPONS2 CITY SPONS2 STATE 


"<40 UIC }<UIC_ACTUAL { DOES NOT MATCH" 
ON NONEXT GOTO BEGIN 


ENDCASE 


DATA 
END 
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PAY1 BACK SPONS1 NM 
SPONS1 ADDR3 7 
SPONS] ZIP  RPT1 DATE 
PAY2_ BACK SPONS2_NM 
SPONS2_ADDR3 7 
SPONS2 ZIP  RPT2_DATE 





K. OMFDA1OR FOCEXEC 


-* PROGRAM: OMFDA10OR FOCEXEC 
-* THIS PROGRAM PRODUCES A LISTING OF KEY ELEMENTS OF OMFX. 
ok 


-* J. HARR APR 1993 

OFFLINE CLOSE 

CMS FILEDEF OFFLINE CLEAR 

CMS FILEDEF OFFLINE DISK OMFDAI1OR LISTING T (LRECL 132 RECFM F 
TABLE FILE OMFX 


"REPORT NO:OMFDAI1OR NAVAL POSTGRADUATE SCHOOL 
<+14 PAGE NO: <+4 <TABPAGENO> " 
"PREPARED: &DATE NAVY OMFX " 


PRINT SSN NAME 
AUIC AS ‘'CURRENT,UIC' 
BSC AS ‘CURRENT, BSC’ 
XUIC1 AS ‘TRANSFER,TO UIC’ 
XBSC1l AS ‘'TRANSFER,TO BSC’ 
COLLEGE] AS ‘COLLEGE’ 
YRCOMP1 AS ‘'YEAR,COMP’ 
MAJOR1 AS ’MAJOR' 
SPEC] AS ‘*SPEC’ 

BY SVC NOPRINT 

END 

-RUN 

-CMS XEDIT OMFDAIOR LISTING T 


45 


L. OMFDA20R FOCEXEC 


* PROGRAM: OMFDA20R FOCEXEC 
* THIS PROGRAM COUNTS ALL HOLDERS OF SUBSPECIALTIES GRANTED BY 
-* NPS REGARDLESS OF WHERE AN OFFICER OBTAINED THEM. THE REPORT 
* IS GROUPED BY SUBSPECIALTY. 

* AUTHOR: HOWARD MORTON 

-* MODIFIED: J. HARR APRIL 1993 
OFFLINE CLOSE 
CMS FILEDEF OFFLINE CLEAR 
CMS FILEDEF OFFLINE DISK OMFDA20R LISTING T (LRECL 132 RECFM F 
TABLE FILE OMFX 
PRINT SUBSPEC1 COLLEGE1 COLLEGE2 

IF SUBSPEC1 IS '$$42S' OR ‘'S$S$43S’ OR 'S$$45S$' OR 'SS$76S' 
OR '$$91S’ OR 'SS$89S’ OR '$$48S$’ OR '$$47$' OR 'S$49S' 
OR ’'SS41S’ OR ‘'SS44S’ OR ‘SS61S"° OR ‘'SS63S”" OR SSG6757 
OR '$S56$” OR *’SS54S° OR ‘'SS55S° OR “°SS77S ORe Ss465n 
OR '$$81$' OR '$$71$’ OR '$$72$’' OR '$$21$' OR '$$22$' 
OR ‘'$$23S' OR ‘S$S$24S’ OR ‘'SS28S’' OR ‘1304S’ OR ‘'S$S$35S’ 
OR '1306$’ OR ‘1302S’ OR “$3173” OR $3325" OR 'Soans. 
OR §SS335 JOR? 55959" 
ON TABLE HOLD AS HOWARD 
END 
DEFINE FILE HOWARD 
TRAINING/A7 =IF COLLEGE] OMITS ‘MONTEREY’ AND COLLEGE2 OMITS ‘MONTEREY’ 

THEN 'NON-NPS’ ELSE ’ NPS’; 
SSC/A2 EDIT(SUBSPEC1, ‘$$99S"); 
SFX/Al EDIT (SUBSPEG]. (S055 900)- 
CURRICULUM/A38 = DECODE SSC 
('42' ‘OPERATIONS ANALYSIS’ 

‘43’ ‘OPERATIONAL LOGISTICS’ 

'45’ ‘COMMAND, CONTROL AND COMMUNICATIONS’ 

‘76’ ‘SPACE SYSTEMSOPERATIONS ’ 

‘91’ ‘COMPUTER SCIENCE’ 

‘95’ ‘COMPUTER SYSTEMS MANAGEMENT’ 

‘89’ ‘INFORMATION TECHNOLOGY MANAGEMENT’ 

‘48’ ‘METEOROLOGY’ 

‘47’ 'AIR-OCEAN SCIENCES’ 

‘49’ ‘OCENAOGRAPHY ' 

’44’ ‘ASW SYSTEMS’ 

‘61’ ‘WEAPONS SYSTEMS ENGINEERING’ 

'63’ ‘WEAPONS SYSTEMS SCIENCES (PHYSICS) ’ 

‘67’ ‘NUCLEAR PHYSICS (WEAPONS AND EFFECTS)’ 

‘56’ ‘UNDERWATER ACOUSTICS’ 

'S4’ 'NAVAL/MECHANICAL ENGINEERING’ 

‘55’ ‘ELECTRONIC SYSTEMS ENGINEERING’ 

'77' ‘SPACE SYSTEMS ENGINEERING’ 

‘46’ ‘EW SYSTEMS ENGINEERING’ 

‘81’ ‘COMMUNICATIONS ENGINEERING’ 

‘71’ ‘AERONAUTICAL ENGINEERING’ 

‘72’ ‘AERONAUTICAL ENGINEERING-AVIONICS’ 

‘21’ ‘NSA = MIDEAST, AFRICA, SOUTH ASIA’ 

‘22’ 'NSA - FAR EAST, SE ASIA, PACIFIC’ 

‘23’ 'NSA - WESTERN HEMISPHERE’ 

‘24’ 'NSA - EUROPE, USSR’ 

‘28’ ‘NSA - STRATEGIC PLANNING’ 

‘04’ ‘TRANSPORTATION LOGISTICS MANAGEMENT’ 

°35’ ‘TRANSPORTATION MANAGEMENT’ 

'06’ ‘ACQUISITIONS & CONTRACT MANAGEMENT’ 

'02' ‘SYSTEMS INVENTORY MANAGEMENT’ 

“17? * INTELLIGENCE, 

‘32’ ‘MATERIAL LOGISTICS SUPPORT MANAGEMENT’ 
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‘31’ ‘FINANCIAL MANAGEMENT’ 
‘33’ ‘MANPOWER, PERS & TRAINING ANALYSIS’ ) 


END 

TABLE FILE HOWARD 

"REPORT NO:OMFDA20R NAVAL POSTGRADUATE SCHOOL 

<+14 PAGE NO: <+4 <TABPAGENO> " 

"PREPARED: &DATE US NAVY OFFICER SUBSPECIALTY INVENTORY" 


: (CATEGORIZED BY SUBSPECIALTY, SUFFIC AND NPS ATTENDANCE) " 
COUNT SUBSPEC1 ACROSS TRAINING AND ROW-TOTAL AND COLUMN-TOTAL 

BY CURRICULUM UNDER-LINE NOSPLIT 

BY SSC SUBTOTAL 

BY SFX AS ‘CODE’ 

Rimemweeorsk IS *“S’ OR ‘’R’ OR ‘'G’ OR ‘F’ OR ’P’ OR ‘QO’ OR ‘N’ OR ‘'M’ OR ’D' 
GRC’ 

FOOTING 

“'SUPSPEC CODES: " 


"S = NO MS (EXPER, NOT PROVEN) R = NO MS (EXPER, PROVEN)" 
"G = LESS THEN MS (NOT PROVEN) F = LESS THEN MS (PROVEN) " 
"PD = MS (NOT PROVEN) Q = MS (PROVEN)" 

"M = POST-MS (NOT PROVEN) N = POST-MS (PROVEN)" 

"D = DOCTOR (NOT PROVEN) C = DOCTOR (PROVEN)" 

END 

-RUN 


-CMS XEDIT OMFDA20R LISTING T 
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M. 


USEOMF FOCEXEC 


SET PASS = XXXXXX 
VE OMFX FOCUS A 


END 
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APPENDIX C: USERS GUIDE 


A. INTRODUCTION 

1. This prototype was developed in response to questions 
posed by Dean Elster regarding status of NPS Navy students 
after graduation. The instructions will address using the 
system to update personnel information. The OMF system 
resides on the NPS Computer Center mainframe. 

2. The user needs basic knowledge of a CMS user account 
and basic knowledge of FOCUS (for TABLETALK). Passwords for 
logging on to the account can be provided by the Dean of 


Pnseruction. 


B. LOGGING ON 

1. There are two CMS accounts for the OMF system: the 
data base account and the user account. The data base account 
must be initiated as a SINK machine in order to provide 
simultaneous updating of the OMF records. 

2. Starting the SINK Machine: The OMF resides on account 
5010P. Log on to this account and execute the command 
STARTSU. This will make the account active as a SINK machine 
and will log you off automatically. 

3. Logging On as a User: For this prototype, user 
account 5011P is provided. To initiate a session, type 


STARTFOC. This will put the user in the FOCUS environment and 
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initiate his PROFILE FOCEXEC to provide the main menu 


sessions. 


C. SYSTEM MENUS 
1. A logo will appear on the screen, ‘OMF’, press ENTER 
to continue. The main menu provides the user with maintaining 


and reporting from the OMF data base. 


OMFDA0N00-1.0 Naval Postgraduate School 
OFFICER MASTER FILE SYSTEM 
OMF Main Edit Menu 


Add an Individual Record 
Modify Individual Record 
Delete Individual record 
Add Transfer Data 


Display/Print Individual Records 
Display/Print Summary Report 
Report with TABLETALK 


EXIT 
Service -- > NV 


OPTION } { 





Figure 1 OMF Main Edit Menu 


2. To add or modify an existing record the menus are the 


same, the actions are different (include / update). 
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OMFDA1OP-1.1 Naval Postgraduate School 
Officer Master File System 
Add Screen 1 


Create an Officer master record by entering the following 


data: 
SSN: 
SvC-: 
CURRENT UIC: 
COLLEGE: 





Figure 2 Add/Modify Screen 


OMFDAI1OP-1.2 Naval Postgraduate School 
Officer Master File System 
Add Screen 2 


SSN: 

NAME (LAST FIRST MIDDLE): 

GENDER (F/M): ES. 

YOS (1/2/3) : PAY GRADE: 

PROMOTION STATUS: 

YEAR GROUP: DESIGNATOR: 

SELECTION YEAR: INCREMENT: 
Figure 3 Add/Modify Personnel Data 





OMFDA10P-1.3 Officer Master File System 
Add Screen 3 


Please input UIC data... 

CURRENT UIC: CURRENT BSC: 

Is this a pay back tour or billet: 
(1=Yes; 2=Sch/Trng; 3=Unk; 4=No) 

UIC: BSC: EDs: 


Sponsor Name: 

Sponsor Address: 

FOLLOWING tour of duty: 

UIC: BSC: jad eos 
Is this a pay back tour or billet: 
Sponsor Name: 

Sponsor Address: 





Figure 4 Add/Modify UIC/BSC Data 
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OMFDA10P-1.4 Officer Master File System 
Add Screen 4 


Please input current graduate data: 
COLLEGE NAME: Year Completed: 


Level: Major: Specialty: 


Please input previous college data: 
COLLEGE NAME: Year Completed: 
Level: Major: Specialty: 





Figure 5 Add/Modify Education 


3. To delete a record from the OMF, the following screen 

requires entering the Navy officer’s social security number. 
OMFDA12P-1.1 Naval Postgraduate School 
Officer Master File System 


Delete Screen 


Delete an Officer Master record by entering the 


following data: 
SSN 





Figure 6 OMF Delete Menu 


Messages appear on the bottom of the screen indicating actions 


taken: Record <SSN> deleted; Record <Name> Added/Modified. 


D. REPORTS 
1. Two reports are provided for selection on the main 


menu aS Options 5 and 6. The individual and summary report 
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samples are provided at Appendix B. The TABLETALK report 
writer is window driven and provides the user an easy tool for 
producing other reports as required. Knowledge of the FOCUS 
environment is helpful. The PF3 is a quit key and the TAB is 
used to go from line to line. Hitting ENTER allows you to see 


the next menu. 


E. LOGGING OFF 
1. To end the session on the users account, enter X to 
exit. To log off the CMS account, enter LOG. 
2. Be sure to bring down the SINK when you are finished: 
Log on to account 5010P and type STOP and press ENTER, then 


LOG off the account. 
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